home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / lisp / kcl / kcl.lha / lsp / init.lsp < prev    next >
Lisp/Scheme  |  1987-06-04  |  468b  |  14 lines
  1. (defun lcs1 (file)
  2.        (compile-file file
  3.                      :c-file t :h-file t :data-file t :ob-file t
  4.                      :system-p t))
  5.  
  6. (defun make-unix_top ()
  7.        (let ((*features* '(unix)))
  8.             (compile-file "top" :output-file "unix_top"
  9.                           :c-file t :h-file t :data-file t
  10.                           :ob-file nil :fasl-file nil
  11.                           :system-p t)))
  12.  
  13. (proclaim '(special si::*indent-formatted-output*))
  14.